home *** CD-ROM | disk | FTP | other *** search
/ Magic Disk 64 / Magic_Disk_64_89-12_1989_-_de_Side_B.d64 / movesprite (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  512b  |  20 lines
  1. 5 v=53248:print"[147]"
  2. 10 for i=0to62:reada:poke832+i,a:next
  3. 30 poke2040,13:pokev+21,1
  4. 40 pokev,24
  5. 50 fori=39to150
  6. 55 pokev+1,i
  7. 60 fork=0to10:next k
  8. 70 next i
  9. 80 fori=24to255:pokev,i
  10. 90 fork=0to1:nextk
  11. 95 next i
  12. 96 pokev+21,0
  13. 100 data 0,0,0,0,24,0,0,126,0
  14. 110 data 1,255,128,7,255,224,30,102,120
  15. 120 data 54,102,108,54,102,108,31,255,248
  16. 130 data 7,255,224,1,255,128,1,129,128
  17. 140 data 3,0,192,3,0,192,6,0,96
  18. 150 data 6,0,96,12,0,48,127,0,255
  19. 160 data 0,0,0,0,0,0,0,0,0
  20.